home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tcl / demos / ixset < prev    next >
Encoding:
Text File  |  1992-08-19  |  7.8 KB  |  337 lines
  1. #!/usr/local/wish -f
  2.  
  3. #
  4. # A nice interface to "xset" to change X server settings
  5. #
  6. # History :
  7. #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
  8. #   92/08/01 : pda@masi.ibp.fr : cleaning
  9. #
  10.  
  11. #
  12. # Button actions
  13. #
  14.  
  15. proc quit {} {
  16.     destroy .
  17. }
  18.  
  19. proc ok {} {
  20.     writesettings
  21.     quit
  22. }
  23.  
  24. proc cancel {} {
  25.     readsettings
  26.     dispsettings
  27. }
  28.  
  29. # apply is just "writesettings"
  30.  
  31.  
  32. #
  33. # Read current settings
  34. #
  35.  
  36. proc readsettings {} {
  37.     global kbdrep ;    set kbdrep    "on"
  38.     global kbdcli ;    set kbdcli    0
  39.     global bellvol ;    set bellvol    100
  40.     global bellpit ;    set bellpit    440
  41.     global belldur ;    set belldur    100
  42.     global mouseacc ;    set mouseacc    "3/1"
  43.     global mousethr ;    set mousethr    4
  44.     global screenbla ;    set screenbla    "blank"
  45.     global screentim ;    set screentim    600
  46.     global screencyc ;    set screencyc    600
  47.  
  48.     set xfd [open "|xset q" r]
  49.     while {[gets $xfd line] > -1} {
  50.     set kw [lindex $line 0]
  51.  
  52.     case $kw in {
  53.         {auto}
  54.         {
  55.             set rpt [lindex $line 1]
  56.             if {[expr "{$rpt} == {repeat:}"]} then {
  57.             set kbdrep [lindex $line 2]
  58.             set kbdcli [lindex $line 6]
  59.             }
  60.         }
  61.         {bell}
  62.         {
  63.             set bellvol [lindex $line 2]
  64.             set bellpit [lindex $line 5]
  65.             set belldur [lindex $line 8]
  66.         }
  67.         {acceleration:}
  68.         {
  69.             set mouseacc [lindex $line 1]
  70.             set mousethr [lindex $line 3]
  71.         }
  72.         {prefer}
  73.         {
  74.             set bla [lindex $line 2]
  75.             set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
  76.         }
  77.         {timeout:}
  78.         {
  79.             set screentim [lindex $line 1]
  80.             set screencyc [lindex $line 3]
  81.         }
  82.     }
  83.     }
  84.     close $xfd
  85.  
  86.     # puts stdout [format "Key REPEAT = %s\n" $kbdrep]
  87.     # puts stdout [format "Key CLICK  = %s\n" $kbdcli]
  88.     # puts stdout [format "Bell VOLUME = %s\n" $bellvol]
  89.     # puts stdout [format "Bell PITCH = %s\n" $bellpit]
  90.     # puts stdout [format "Bell DURATION = %s\n" $belldur]
  91.     # puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
  92.     # puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
  93.     # puts stdout [format "Screen BLANCK = %s\n" $screenbla]
  94.     # puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
  95.     # puts stdout [format "Screen CYCLE = %s\n" $screencyc]
  96. }
  97.  
  98.  
  99. #
  100. # Write settings into the X server
  101. #
  102.  
  103. proc writesettings {} {
  104.     global kbdrep kbdcli  bellvol bellpit belldur
  105.     global mouseacc mousethr  screenbla screentim screencyc
  106.  
  107.     set bellvol        [.bell.vol get]
  108.     set bellpit        [.bell.val.pit.entry get]
  109.     set belldur        [.bell.val.dur.entry get]
  110.  
  111.     if {[expr "{$kbdrep} == {on}"]} then {
  112.     set kbdcli    [.kbd.val.cli get]
  113.     } else {
  114.     set kbdcli    "off"
  115.     }
  116.  
  117.     set mouseacc    [.mouse.hor.acc.entry get]
  118.     set mousethr    [.mouse.hor.thr.entry get]
  119.  
  120.     set screentim    [.screen.val.le.tim.entry get]
  121.     set screencyc    [.screen.val.le.cyc.entry get]
  122.  
  123.     exec xset \
  124.     b $bellvol $bellpit $belldur \
  125.     c $kbdcli \
  126.     r $kbdrep \
  127.     m $mouseacc $mousethr \
  128.     s $screentim $screencyc \
  129.     s $screenbla
  130. }
  131.  
  132.  
  133. #
  134. # Sends all settings to the window
  135. #
  136.  
  137. proc dispsettings {} {
  138.     global kbdrep kbdcli  bellvol bellpit belldur
  139.     global mouseacc mousethr  screenbla screentim screencyc
  140.  
  141.     .bell.vol set $bellvol
  142.     .bell.val.pit.entry delete 0 end
  143.     .bell.val.pit.entry insert 0 $bellpit
  144.     .bell.val.dur.entry delete 0 end
  145.     .bell.val.dur.entry insert 0 $belldur
  146.  
  147.     .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
  148.     .kbd.val.cli set $kbdcli
  149.  
  150.     .mouse.hor.acc.entry delete 0 end
  151.     .mouse.hor.acc.entry insert 0 $mouseacc
  152.     .mouse.hor.thr.entry delete 0 end
  153.     .mouse.hor.thr.entry insert 0 $mousethr
  154.  
  155.     .screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
  156.     .screen.val.rb.pat   [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
  157.     .screen.val.le.tim.entry delete 0 end
  158.     .screen.val.le.tim.entry insert 0 $screentim
  159.     .screen.val.le.cyc.entry delete 0 end
  160.     .screen.val.le.cyc.entry insert 0 $screencyc
  161. }
  162.  
  163.  
  164. #
  165. # Create all windows, and pack them
  166. #
  167.  
  168. proc labelentry {path text length} {
  169.     frame $path
  170.     label $path.label -text $text
  171.     entry $path.entry -width $length -relief sunken
  172.     pack append $path $path.label {left expand} $path.entry {right expand}
  173. }
  174.  
  175. proc createwindows {} {
  176.     #
  177.     # Buttons
  178.     #
  179.  
  180.     frame .buttons
  181.     button .buttons.ok        -command "ok"            -text "Ok"
  182.     button .buttons.apply    -command "writesettings"    -text "Apply"
  183.     button .buttons.cancel    -command "cancel"        -text "Cancel"
  184.     button .buttons.quit    -command "quit"            -text "Quit"
  185.  
  186.     pack append .buttons \
  187.         .buttons.ok        {left expand pady 10} \
  188.         .buttons.apply    {left expand pady 10} \
  189.         .buttons.cancel    {left expand pady 10} \
  190.         .buttons.quit    {left expand pady 10}
  191.  
  192.     #
  193.     # Bell settings
  194.     #
  195.  
  196.     frame .bell -relief raised -borderwidth 2
  197.     label .bell.label    -text "Bell Settings"
  198.     scale .bell.vol \
  199.         -from 0 -to 100 -length 200 -tickinterval 20 \
  200.         -label "Volume (%)" -orient horizontal \
  201.         -bg Bisque1 -activeforeground Gray
  202.  
  203.     frame .bell.val
  204.     labelentry .bell.val.pit "Pitch (Hz)"    6
  205.     labelentry .bell.val.dur "Duration (ms)" 6
  206.     pack append .bell.val \
  207.         .bell.val.pit    {left padx 10} \
  208.         .bell.val.dur    {right padx 10}
  209.  
  210.     pack append .bell \
  211.         .bell.label        {top expand} \
  212.         .bell.vol        {top expand} \
  213.         .bell.val        {top expand}
  214.  
  215.     #
  216.     # Keyboard settings
  217.     #
  218.  
  219.     frame .kbd -relief raised -borderwidth 2
  220.  
  221.     label .kbd.label -text "Keyboard Repeat Settings"
  222.  
  223.     frame .kbd.val
  224.     checkbutton .kbd.val.onoff \
  225.         -text "On" \
  226.         -onvalue "on" -offvalue "off" -variable kbdrep \
  227.         -relief flat \
  228.         -activebackground Bisque1
  229.     scale .kbd.val.cli \
  230.         -from 0 -to 100 -length 200 -tickinterval 20 \
  231.         -label "Click Volume (%)" -orient horizontal \
  232.         -bg Bisque1 -activeforeground Gray
  233.     pack append .kbd.val \
  234.         .kbd.val.onoff    {left expand fill} \
  235.         .kbd.val.cli    {left expand}
  236.  
  237.     pack append .kbd \
  238.         .kbd.label        {top expand} \
  239.         .kbd.val        {top expand pady 4 fillx}
  240.  
  241.     #
  242.     # Mouse settings
  243.     #
  244.  
  245.     frame .mouse -relief raised -borderwidth 2
  246.  
  247.     label .mouse.label -text "Mouse Settings"
  248.     frame .mouse.hor
  249.     labelentry .mouse.hor.acc "Acceleration" 3
  250.     labelentry .mouse.hor.thr "Threshold (pixels)" 3
  251.  
  252.     pack append .mouse.hor \
  253.         .mouse.hor.acc    {left} \
  254.         .mouse.hor.thr    {right}
  255.  
  256.     pack append .mouse \
  257.         .mouse.label    {top} \
  258.         .mouse.hor        {top expand}
  259.  
  260.     #
  261.     # Screen Saver settings
  262.     #
  263.  
  264.     frame .screen -relief raised -borderwidth 2
  265.  
  266.     label .screen.label -text "Screen-saver Settings"
  267.     frame .screen.val
  268.  
  269.     frame .screen.val.rb
  270.     radiobutton .screen.val.rb.blank \
  271.         -variable screenblank -text "Blank" -relief flat \
  272.         -value "blank" -variable screenbla \
  273.         -activebackground Bisque1
  274.     radiobutton .screen.val.rb.pat \
  275.         -variable screenblank -text "Pattern" -relief flat \
  276.         -value "noblank" -variable screenbla \
  277.         -activebackground Bisque1
  278.     pack append .screen.val.rb \
  279.         .screen.val.rb.blank    {top pady 4 frame w} \
  280.         .screen.val.rb.pat    {top pady 4 frame w}
  281.     frame .screen.val.le
  282.     labelentry .screen.val.le.tim "Timeout (s)" 5
  283.     labelentry .screen.val.le.cyc "Cycle (s)" 5
  284.     pack append .screen.val.le \
  285.         .screen.val.le.tim    {top pady 4 frame e} \
  286.         .screen.val.le.cyc    {top pady 4 frame e}
  287.  
  288.     pack append .screen.val \
  289.         .screen.val.rb    {left} \
  290.         .screen.val.le    {left}
  291.  
  292.     pack append .screen \
  293.         .screen.label    {top} \
  294.         .screen.val        {top expand}
  295.  
  296.     #
  297.     # Main window
  298.     #
  299.  
  300.     pack append . \
  301.         .buttons    {top fill} \
  302.         .bell    {top fill pady 10 expand} \
  303.         .kbd    {top fill pady 10 expand} \
  304.         .mouse    {top fill pady 10 expand} \
  305.         .screen    {top fill pady 10 expand}
  306.  
  307.     #
  308.     # Let the user resize our window
  309.     #
  310.     wm minsize . 10 10
  311. }
  312.  
  313. ##############################################################################
  314. # Main program
  315.  
  316. #
  317. # Listen what "xset" tells us...
  318. #
  319.  
  320. readsettings
  321.  
  322. #
  323. # Create all windows
  324. #
  325.  
  326. createwindows
  327.  
  328. #
  329. # Write xset parameters
  330. #
  331.  
  332. dispsettings
  333.  
  334. #
  335. # Now, wait for user actions...
  336. #
  337.